All the data used in this assignment is extracted from City of Cambridge.
boudary <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Boundary/CDD_Neighborhoods/BOUNDARY_CDDNeighborhoods.geojson")
building <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Basemap/Buildings/BASEMAP_Buildings.geojson")
landuse <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/CDD/Land_Use/CDD_LandUse.topojson")
zoning <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/CDD/Zoning_Districts/CDD_ZoningDistricts.geojson")
tree <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Environmental/Trees/ENVIRONMENTAL_StreetTrees.geojson")
pubschool <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Landmark/Public_Schools/LANDMARK_PublicSchools.geojson")
prischool <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Landmark/Private_Schools/LANDMARK_PrivateSchools.geojson")
road <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Basemap/Roads/BASEMAP_Roads.geojson")
openspace <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Recreation/Open_Space/RECREATION_OpenSpace.geojson")
strlights <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Infra/Street_Lights/INFRA_StreetLights.geojson")
ggplot(data = openspace)+
annotation_map_tile(zoomin = 0, progress = "none") +
geom_sf() +
geom_sf(data = pubschool) +
geom_sf(data = prischool)
## Loading required namespace: raster
<<<<<<< HEAD
ggplot()+
annotation_map_tile(data = openspace, zoomin = 0, progress = "none", type = "cartolight") +
geom_sf(data = openspace, aes(fill = OWNER)) +
geom_sf(data = pubschool, size = 5, aes(color = "C"), show.legend = "point", alpha = 1/3) +
geom_sf(data = prischool, size = 5, aes(color = "D"), show.legend = "point", alpha = 1/3) +
scale_color_manual(values = c("C" = "seagreen1", "D" = "tomato"), name = "School") +
theme_void()
<<<<<<< HEAD
ggplot(data = openspace) +
annotation_map_tile(zoomin = 0, progress = "none", type = "cartolight") +
geom_sf(data = openspace, aes(color = OWNER, fill = OWNER)) +
geom_sf(data = pubschool, color = "seagreen1") +
geom_sf(data = pubschool, size = 40, color = "seagreen1", alpha = 1/15) +
geom_sf(data = prischool, color = "tomato") +
geom_sf(data = prischool, size = 40, color = "tomato", alpha = 1/15)+
theme_void() +
labs(caption = "Map tiles by OpenStreetMap")